*------------------------------------------------------------------------------*
* Family history - Dinas, Fouka, Schläpfer - JoP
*------------------------------------------------------------------------------*

*------------------------------------------------------------------------------*
* Figure 2
*------------------------------------------------------------------------------*



*------------------------------------------------------------------------------*
* Greece
*------------------------------------------------------------------------------*

use greece, clear

gen inter=asiaminor*T

estimates clear
eststo att: reg pc_all_bst T asiaminor inter, cl(municipality)
eststo beh: reg pc_behst T asiaminor inter, cl(municipality)


coefplot (beh, offset(-0.01) aseq("Quasi-behavioral") ciopts(lcolor(blue blue)) mcolor(blue)) ///
(att, aseq("Attitudes") ciopts(lcolor(red red)) mcolor(red)), ///
levels(95 90) xline(0, lcolor(gs10)) keep(inter) ///
ysca(titlegap(2)) msize(small) title("Greece", size(small)) ///
xtitle("", size(small)) xtitle("Differential treatment effect", size(small)) ///
xlabel(, nogrid labsize(small)) ylabel(, nogrid labsize(small)) xsca(titlegap(2)) ///
legend(region(lcolor(white))) swapnames legend(off) grid(none) xscale(range(-0.2(0.2)0.8))

graph save Greece, replace


*------------------------------------------------------------------------------*
* Germany
*------------------------------------------------------------------------------*

use germany, clear


estimates clear
eststo att: reg pc_att t1 expellee inter_exp_t1, cl(GKZ)
eststo beh: reg donate_st t1 expellee inter_exp_t1, cl(GKZ)


coefplot (beh, offset(-0.01) aseq("Donation UNHCR") ciopts(lcolor(blue blue)) mcolor(blue)) (att, aseq("Attitudes") ciopts(lcolor(red red)) mcolor(red)), ///
levels(95 90) xline(0, lcolor(gs10)) keep(inter_exp_t1) ///
ysca(titlegap(2)) msize(small) title("Germany", size(small)) ///
ytitle("", size(small)) xtitle("Differential treatment effect", size(small)) ///
xlabel(, nogrid labsize(small)) ylabel(, nogrid labsize(small)) xsca(titlegap(2)) ///
legend(region(lcolor(white))) swapnames legend(off) grid(none)  xscale(range(-0.2(0.2)0.8))

graph save Germany, replace

*------------------------------------------------------------------------------*
* Combine
*------------------------------------------------------------------------------*

graph combine Greece.gph Germany.gph, xcommon iscale(2) ysize(2) 

